home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Info / TeachU14 / SAMS / Code / Day12 / dyntablu.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-08  |  1.7 KB  |  55 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "DynTablU.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init);
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. //---------------------------------------------------------------------------
  11. __fastcall TForm1::TForm1(TComponent* Owner)
  12.   : TForm(Owner)
  13. {
  14. }
  15. //---------------------------------------------------------------------------
  16.  
  17.  
  18.  
  19. void __fastcall TForm1::FormCreate(TObject *Sender)
  20. {
  21.   //TStringList* items =
  22.   //  dynamic_cast<TStringList*>(ComboBox1->Items);
  23.   //items->Duplicates = dupIgnore;
  24.   Session->GetDatabaseNames(DBNamesComboBox->Items);
  25. }
  26. //---------------------------------------------------------------------------
  27.  
  28. void __fastcall TForm1::DBNamesComboBoxChange(TObject *Sender)
  29. {
  30.   if (Table1->Active == true)
  31.     Table1->Active = false;
  32.   TablesComboBox->Text = "";
  33.   String DBName = DBNamesComboBox->Text;
  34.   TDatabase* db = new TDatabase(this);
  35.   db->AliasName = DBName;
  36.   if (db->IsSQLBased)
  37.     Session->GetTableNames(DBName, "",
  38.       false, true, TablesComboBox->Items);
  39.   else
  40.     Session->GetTableNames(DBName, "",
  41.       true, false, TablesComboBox->Items);
  42.   Table1->DatabaseName = DBName;
  43.   TablesComboBox->DroppedDown = true;
  44.   delete db;
  45. }
  46. //---------------------------------------------------------------------------
  47. void __fastcall TForm1::TablesComboBoxChange(TObject *Sender)
  48. {
  49.   if (Table1->Active == true)
  50.     Table1->Active = false;
  51.   Table1->TableName = TablesComboBox->Text;
  52.   Table1->Active = true;
  53. }
  54. //---------------------------------------------------------------------------
  55.